home *** CD-ROM | disk | FTP | other *** search
/ PC Graphics Unleashed / PC Graphics Unleashed.iso / ch04 / gograp / icon.poc < prev    next >
Encoding:
Text File  |  1992-05-09  |  515 b   |  34 lines
  1. //
  2. // quick and dirty poco to write an icon to the file icon.bin
  3. //
  4. //
  5. // if anyone tidies it up, please fax or send the changes to me
  6. //
  7.  
  8. main() {
  9. int x;
  10. int y;
  11. int w;
  12. int h;
  13. int x1;
  14. int y1;
  15. FILE *handle;
  16. char ch[256];
  17. int true;
  18.  
  19.     Qfile(".ico", "make", "icon", ch, 1, "choose icon file");
  20.     
  21.     handle = fopen(ch,"w");
  22.  
  23.     true = RubBox(&x1, &y1, &w , &h);
  24.  
  25.         for (y=y1; y<(y1+h); y++) {
  26.             for (x=x1; x<(x1+w); x++) {
  27.                 fputc(GetDot(x,y), handle);
  28.             
  29.             }
  30.         }
  31.         fclose(handle);
  32.     
  33. }
  34.